www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_userclass.asp
<!--#include file="conn.asp"--> <!--#include file="check.asp"--> <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" type="text/css" href="css.css"> </head> <body> <!--#include file="top.htm"--> <br> <% select case request("action") case "" call main() case "badd" call addbclass() case "bbadd" call addbbclass() case "addsave" call addsave() case "bedit" call bedit() case "beditsave" call beditsave() case "bdell" call bdell() case "sedit" call sedit() end select sub main() %> <% set rsbclass=server.createobject("adodb.recordset") sqlbclass="select * from Tsm_userbc order by cpx" rsbclass.open sqlbclass,conn,1,1 %> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>会 员 等 级 管 理</b></font></td> </tr> <tr> <td height="30" align="center" bgcolor="#FFFFFF"><a href="?Action=bbadd">增加等级</a></td> </tr> </table> <table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#E0E0E0" class="text"> <tr align="center" bgcolor="#F6F6F6"> <td width="10%" bgcolor="#F6F6F6">等级</td> <td width="40%" height="25" bgcolor="#F6F6F6">信 息 名 称</td> <td width="40%">操 作 选 项</td> </tr> <% do while not rsBClass.eof %> <tr align="center" bgcolor="#FFFFFF"> <td height="25" align="center"><%= rsbclass("Cpx") %></td> <td height="25" align="left" valign="middle"> <strong><%= rsbclass("Aname") %></strong></td> <td height="25"><a href="?Action=bedit&bcid=<%= rsbclass("Aid") %>">修改</a> | <a href="?Action=bdell&bcid=<%= rsbclass("Aid") %>" onClick="javascript:return confirm('[ 操作提示 ]\n\n是否确认删除?删除数据将无法逆回!');">删除</a> </td> </tr> <% rsBclass.movenext loop rsbclass.close set rsbclsss=nothing %> </table> <table width="90%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td align="center" valign="middle"><font color="#FF0000">* 注意:1为最高等级,2次之,依次类推!</font></td> </tr> </table> <% end sub sub addbbclass() set rspaixu=server.createobject("adodb.recordset") paixusql="select * from Tsm_userbc order by cpx desc" rspaixu.open paixusql,conn,1,1 if not rspaixu.eof then thelastpaixu=rspaixu("cpx")+1 else thelastpaixu=1 end if rspaixu.close set rspaixu=nothing %> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <form name="myform" method="post" action="?action=addsave"> <tr> <td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>添 加 会 员 等 级</b></font></td> </tr> <tr> <td align="center" valign="middle" bgcolor="#FFFFFF"><br> 等级名称: <input name="Aname" type="text" id="Aname" size="20" maxlength="50"> 等级: <input name="Cpx" type="text" id="Cpx" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false" value="<%=thelastpaixu%>"></td> </tr> <tr> <td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit2" type="submit" id="Submit2" value=" 添 加 "> <input type="button" name="Submit2" value=" 返 回 " onClick="history.go(-1)"></td> </tr> </form> </table> <table width="90%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td align="center" valign="middle"><font color="#FF0000">* 注意:1为最高等级,2次之,依次类推</font></td> </tr> </table> <% end sub sub addbclass() dim bcid bcid=trim(request("bcid")) bcid=CLng(bcid) set rs2=server.createobject("adodb.recordset") sql2="select Aname,Anamee,Aid from Tsm_userbc where Aid="& bcid rs2.open sql2,conn,1,1 %> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <form name="form1" method="post" action="?action=addsave"> <tr> <td align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>添 加 二 级 栏 目</b></font></td> </tr> <tr> <td height="45" align="center" bgcolor="#FFFFFF">在<b><font color="#FF0000">[<%= rs2("Aname") %>]</font></b>中添加子栏目: <input name="Aid" type="hidden" id="Aid" value="<%=rs2("Aid")%>"> (中)<input name="bname" type="text" id="bname" size="20" maxlength="50"> (英)<input name="bnamee" type="text" id="bnamee" size="20" maxlength="50"> 排序: <input name="Cpx" type="text" id="Cpx" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false"></td> </tr> <tr> <td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 添 加 "> <input type="button" name="Submit22" value=" 返 回 " onClick="history.go(-1)"></td> </tr> </form> </table> <% end sub sub bedit() dim bcid bcid=trim(request("bcid")) bcid=CLng(bcid) set rs2=server.createobject("adodb.recordset") sql2="select * from Tsm_userbc where Aid="& bcid rs2.open sql2,conn,1,1 %> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <form name="myform" method="post" action="?action=beditsave"> <tr> <td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>修 改 等 级 名 称</b></font></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><br> 将<b><font color="#FF0000">[<%= rs2("Aname") %>]</font></b>修改为: <input name="Aid" type="hidden" id="Aid" value="<%= rs2("Aid") %>"> <input name="Aname" type="text" id="Aname" value="<%=rs2("Aname") %>" size="20" maxlength="50"> 等级: <input name="Cpx" type="text" id="Cpx" value="<%=rs2("Cpx")%>" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false"></td> </tr> <tr> <td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 修 改 "> <input type="button" name="Submit23" value=" 返 回 " onClick="history.go(-1)"></td> </tr> </form> </table> <% end sub sub sedit() dim scid scid=trim(request("scid")) scid=CLng(scid) set rs2=server.createobject("adodb.recordset") sql2="select * from Tsm_sc where Bid="& scid rs2.open sql2,conn,1,1 %> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <form name="form1" method="post" action="?action=beditsave"> <tr> <td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>修 改 二 级 栏 目 名 称</b></font></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><br> 将子栏目<b><font color="#FF0000">[<%= rs2("Bname") %>]</font></b>修改为: <input name="Bid" type="hidden" id="Bid" value="<%= rs2("Bid") %>"> (中)<input name="Bname" type="text" id="Bname" value="<%= rs2("Bname") %>" size="20" maxlength="50"> (英)<input name="Bnamee" type="text" id="Bnamee" value="<%= rs2("Bnamee") %>" size="20" maxlength="50"> 排序: <input name="Cpx" type="text" id="Cpx" value="<%= rs2("Cpx") %>" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false"> </td> </tr> <tr> <td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 修 改 "> <input type="button" name="Submit24" value=" 返 回 " onClick="history.go(-1)"></td> </tr> </form> </table> <% end sub %> </body> </html> <% sub addsave() dim bclassid,sclassname,sclassnamee,Cpx bclassid=request("Aid") sclassname=request("Bname") sclassnamee=request("Bnamee") Cpx=request("Cpx") if trim(request("Aname"))="" and trim(request("Aid"))="" then %> <script language=javascript> alert( "[ 操作提示 ]\n\n等级名称不可为空,请输入等级名称!" ); location.href = "javascript:history.back()" </script> <% ElseIf trim(request("Aname"))="" and trim(request("Aid"))<>"" and trim(request("Bname"))="" Then %> <script language=javascript> alert( "[ 操作提示 ]\n\n小类名称不可为空,请输入类别名称!" ); location.href = "javascript:history.back()" </script> <% ElseIf trim(request("cpx"))="" and IsNumeric(request("cpx"))=False Then %> <script language=javascript> alert( "[ 操作提示 ]\n\n等级必须是数字!" ); location.href = "javascript:history.back()" </script> <% else set rs=server.createobject("adodb.recordset") if bclassid<>"" then sql1="select * from Tsm_usersc" rs.open sql1,conn,1,3 rs.AddNew rs("Aid") = bclassid rs("Bname") = sclassname rs("Bnamee") = sclassnamee rs("cpx") = cpx else sql1="select * from Tsm_userbc" rs.open sql1,conn,1,3 rs.AddNew rs("Aname") = request("Aname") rs("Anamee") = request("Anamee") rs("cpx") = cpx end if rs.Update rs.Close set rs=nothing conn.close set conn=nothing end if %> <%if bclassid<>"" then%> <script language=javascript> alert( "[ 操作提示 ]\n\n添加 [ <%= sclassname%> ] 成功!" ); location.href = "Manage_userclass.asp" </script> <%else%> <script language=javascript> alert( "[ 操作提示 ]\n\n添加成功!" ); location.href = "Manage_userclass.asp" </script> <%end if%> <% end sub sub beditsave() set rs=server.createobject("adodb.recordset") if request("Aid")<>"" then sql1="select * from Tsm_userbc where Aid="& request("Aid") rs.open sql1,conn,1,3 rs("Aname") = request("Aname") rs("Anamee") = request("Anamee") rs("Cpx") = request("Cpx") else sql1="select * from Tsm_usersc where Bid="& request("Bid") rs.open sql1,conn,1,3 rs("Bname") = request("Bname") rs("Bnamee") = request("Bnamee") rs("Cpx") = request("Cpx") end if rs.update rs.close Set rs=nothing conn.close Set conn=nothing %> <script language=javascript> alert( "[ 操作提示 ]\n\n修改成功!"); location.href = "Manage_userclass.asp" </script> <% end sub %> <% sub bdell bcid = Request("bcid") if bcid<>"" then '删除大类 sql="delete from Tsm_userbc where Aid=" & bcid conn.execute sql '删除属于该大类的子栏目 'sql="delete from Net_sclass where bclassid=" & bcid 'conn.execute sql '删除属于该大类的文章 'sql="delete from Net_article where bclassid=" & bcid 'conn.execute sql else scid=request("scid") sql="delete from Tsm_sc where Bid=" & scid conn.execute sql '删除属于该大类的文章 'sql="delete from Net_article where sclassid=" & scid 'conn.execute sql end if response.Redirect("Manage_userclass.asp") end sub %>